home *** CD-ROM | disk | FTP | other *** search
/ Word Perfect Main Street: Paper Planes / WordPerfect Main Street - Paper Planes.iso / mac / p13-16 / 00040_Script_40 < prev    next >
Text File  |  1994-06-14  |  655b  |  31 lines

  1. on mouseDown
  2.   global theVCRButtons
  3.   mCancelPlay(theVCRButtons)
  4.   mCancelFastFwd(theVCRButtons)
  5.   
  6.   global Path
  7.   buttonDown(Path, the number of cast "PathNorm", the number of cast "PathHiLite")
  8. end
  9.  
  10. on mouseUp
  11.   global Path
  12.   set test = buttonUp(Path)
  13.   if test then
  14.     cursor 4
  15.     -- make as much room available as possible for best playback
  16.     unload
  17.     
  18.     puppetSound "aerial"
  19.     updateStage
  20.     
  21.     global Plane
  22.     preLoadCast the number of cast ("P" & string(Plane) & ".PATH")
  23.     
  24.     global ReturnFrame
  25.     set ReturnFrame = the frame
  26.     
  27.     removeUI()
  28.     go to "P" & string(Plane) &"Path"
  29.   end if
  30. end
  31.